Create a web page presentation using R Markdown that features a plot created with Plotly. Host your webpage on either GitHub Pages, RPubs, or NeoCities. Your webpage must contain the date that you created the document, and it must contain a plot created with Plotly. We would love to see you show off your creativity!
library(plotly)
## Loading required package: ggplot2
##
## Attaching package: 'plotly'
## The following object is masked from 'package:ggplot2':
##
## last_plot
## The following object is masked from 'package:stats':
##
## filter
## The following object is masked from 'package:graphics':
##
## layout
library(dplyr)
##
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
##
## filter, lag
## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, union
mydata <- read.csv("datafile.csv", header=TRUE, sep=",")
mydata <- data.frame(mydata)
names(mydata)<-c("State", "Population", "Poverty(%)")
mydata <- data.frame(State = mydata$State, Population = as.vector(mydata$Population), Pov= as.vector(mydata$`Poverty(%)`))
mydata$Abb <- with(mydata, paste(state.abb))
mydata$hover <- with(mydata, paste(State, '<br>', "Population:", Population,"Million",'<br>',"Poverty:",Pov,"%"))
borders <- list(color = toRGB("red"))
map_options <- list(
scope = 'usa',
projection = list(type = 'albers usa'),
showlakes = TRUE,
lakecolor = toRGB('white')
)
plot_ly(z = mydata$Population, text = mydata$hover, locations = mydata$Abb,
type = 'choropleth', locationmode = 'USA-states',
color = mydata$Population, colors = 'Blues', marker = list(line = borders)) %>%
layout(title = 'US Population and % poverty in each state as per Census 2017 Estimate',
geo = map_options)